cr	equ	0Dh			;������� �������
lf	equ	0Ah			;������� ������
	org	100h
Start:	jmp	Begin
;	������ ���������
Invitation	db	'Enter a character string ending with "$"', cr, lf
LenInvit	dw	42
BufferApplied	times	81	db	0
LenBufApp	dw	0
;-----------------------------------------------------------------------
;
;	������� ���� ���������
;	-----------------------------------------
;
Begin:
;������������� ���������
	mov	ax,cs
	mov	ds,ax
	mov	al,0
	mov	dl,3
	mov	dh,2
	call	ScreenDriverInit	;������������� �������� ������
	call	KeyboardDriverInit	;������������� �������� ����������
;����� ����������� �� �����
	mov	bx,0
.M1:	cmp	bx,[LenInvit]
	je	.M2
	mov	al,[Invitation + bx]
	call	CharacterOutput		;����� �������
	inc	bx
	jmp	.M1	
;���� ������ � ����������
.M2:	call	CharacterEnter
	jc	.M2
	cmp	al,24h
	je	.M3
	mov	bx,[LenBufApp]
	mov	[BufferApplied + bx],al
	inc	word [LenBufApp]
	jmp	.M2
;����� ��������� ������ �� �����
.M3:	mov	al,cr
	call	CharacterOutput		;����� �������
	mov	al,lf
	call	CharacterOutput		;����� �������
	mov	bx,0
.M4:	cmp	bx,[LenBufApp]
	je	.M5
	mov	al,[BufferApplied + bx]
	call	CharacterOutput		;����� �������
	inc	bx
	jmp	.M4	
;��������
.M5:	call	CharacterEnter
	jc	.M5
;��������������� ���������
	mov	al,1
	call	ScreenDriverInit	;��������������� �������� ������
	call	KeyboardDriverInit	;��������������� �������� ����������
;�����
.Exit:	mov	ax,4c00h
	int	21h

			;������� � DOS
%include	'ScrDriv.asm'
%include	'KeybDriv.asm'